home *** CD-ROM | disk | FTP | other *** search
/ Postcard CD: Niagara Parks / Postcard CD: Niagara Parks (2004).iso / mac / prv-f.dxr / Internal_13.ls < prev    next >
Encoding:
Text File  |  2002-01-10  |  1.6 KB  |  69 lines
  1. global castName, attractions, castIndex, castOffset, PauseSS, language, provinceLang, languageAdjust
  2.  
  3. on setLanguage
  4.   if language = 1 then
  5.     languageAdjust = 0
  6.   else
  7.     if language = 2 then
  8.       languageAdjust = 10
  9.     else
  10.       if language = 3 then
  11.         languageAdjust = 20
  12.       else
  13.         if language = 4 then
  14.           languageAdjust = 30
  15.         else
  16.           if language = 5 then
  17.             languageAdjust = 40
  18.           end if
  19.         end if
  20.       end if
  21.     end if
  22.   end if
  23.   provinceLang = 100 + languageAdjust
  24. end
  25.  
  26. on setVars
  27.   PauseSS = 0
  28. end
  29.  
  30. on initCastName
  31.   castIndex = 1
  32.   castName = attractions[castIndex]
  33.   castOffset = castIndex + 2
  34. end
  35.  
  36. on advanceCast
  37.   if castIndex < 12 then
  38.     castIndex = castIndex + 1
  39.     castName = attractions[castIndex]
  40.     castOffset = castIndex + 2
  41.     sprite(75).member = member(provinceLang, castOffset)
  42.     sprite(76).member = member(101, castOffset)
  43.     go(2)
  44.   else
  45.     if castIndex = 12 then
  46.       go(#next)
  47.     end if
  48.   end if
  49. end
  50.  
  51. on declineCast
  52.   if (castIndex > 1) and (castIndex < 13) then
  53.     castIndex = castIndex - 1
  54.     castName = attractions[castIndex]
  55.     castOffset = castIndex + 2
  56.     sprite(75).member = member(provinceLang, castOffset)
  57.     sprite(76).member = member(101, castOffset)
  58.     go(2)
  59.   else
  60.     if castIndex = 1 then
  61.       go(2)
  62.     end if
  63.   end if
  64. end
  65.  
  66. on createCastList
  67.   attractions = list("MaidOfTheMist", "BehindTheFalls", "GreatGorgeAdventure", "AeroCar", "Butterflies", "BotanicalGardens", "Greenhouse", "FloralClock", "NiagraGlen", "HistoricFortErie", "MackenziePrinteryMuseum", "LegendsOnTheNiagara")
  68. end
  69.